home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / SR130-FALLING LEAVES.txt < prev    next >
Text File  |  2023-02-26  |  653b  |  13 lines
  1.  
  2.  130 L =  PEEK (37): IF  NOT QQ THEN  DIM R$(40),DL(40):QQ = 1
  3.  131  POKE 216,0: FOR X = 0 TO 39:R$(X) = " ":DL(X) = 0: NEXT : FOR X = 1 TO  LEN (ST$):R$(X) =  MID$ (ST$,X,1): NEXT : FOR X = 0 TO  LEN (ST$) - 1:DL(X) =  INT (( RND (1) * L) - L): NEXT 
  4.  132  FOR X = 0 TO  LEN (ST$):DL(X) = DL(X) + 1: IF DL(X) > L THEN DL(X) = L
  5.  133  IF DL(X) = 0 THEN DL(X) = 1
  6.  134  IF DL(X) < 1 THEN 137
  7.  135  HTAB (X +  INT ((20 -  LEN (ST$) / 2))): VTAB DL(X): PRINT R$(X): IF DL(X) = 1 THEN 137
  8.  136  HTAB (X +  INT ((20 -  LEN (ST$) / 2))): VTAB DL(X) - 1: PRINT " "
  9.  137  NEXT 
  10.  138  FOR X = 0 TO  LEN (ST$) - 1: IF DL(X) <  > L THEN 132
  11.  139  NEXT : RETURN 
  12.  
  13.